home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  814b  |  34 lines
  1. 100 rem spritedaten
  2. 110 rem  *****************************
  3. 120 for n=8192 to 8254:read q:poke n,q:next
  4. 130 data 0,160,0,2,168,0,2,145,64
  5. 140 data 10,85,64,10,85,0,40,84,0
  6. 150 data 0,208,0,0,240,0,1,124,0
  7. 160 data 5,255,0,23,255,0,23,255,64
  8. 170 data 5,255,80,1,252,80,0,168,0
  9. 180 data 0,170,0,2,250,128,10,194,128
  10. 190 data 91,2,128,92,6,128,21,69,84
  11. 200 rem *****************************
  12. 210 rem programmstart bewegen
  13. 220 rem
  14. 230 rem vorbereitungen
  15. 240 rem
  16. 250 poke 53280,5:poke53281,0
  17. 260 poke 53285,8:poke53286,11:poke53287,7
  18. 270 poke53276,1:rem sprite 0 multicolor
  19. 280 xreg=53248:xlauf=53264
  20. 290 yreg=53249
  21. 300 poke 2040,128:rem spritezeiger auf daten
  22. 310 poke xreg,0:poke xlauf,0:poke yreg,100:rem anfangspos.
  23. 320 poke 53269,1:rem sprite 0 an
  24. 330 rem
  25. 340 rem sprite animieren
  26. 350 rem
  27. 360 for x=1 to 350
  28. 370 xp=x
  29. 380 if xp<=255 then poke xlauf,0
  30. 390 if xp>255 then poke xlauf,1:xp=xp-255
  31. 400 poke xreg,xp
  32. 410 next x
  33. 420 goto310
  34.